home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isfile / isfile.bas < prev    next >
BASIC Source File  |  1995-05-09  |  724b  |  22 lines
  1. Option Explicit
  2.  
  3. Type OFSTRUCT '136 bytes --- Data Structure for OpenFile call
  4.  cBytes As String * 1
  5.  fFixedDisk As String * 1
  6.  nErrCode As Integer
  7.  reserved As String * 4
  8.  szPathName As String * 128
  9. End Type
  10. Global Const OF_EXIST = &H4000
  11. Declare Function OpenFile% Lib "KERNEL" (ByVal lpFileName$, lpReOpenBuff As OFSTRUCT, ByVal wStyle%)
  12.  
  13. Function IsFile% (NameOfFile As String)
  14. 'True  = File Exists
  15. 'False = File does not exist
  16.  Dim Result As Integer, Response As OFSTRUCT, OF_EXIST As Integer
  17.  Result = OpenFile(NameOfFile, Response, OF_EXIST)
  18.  'Response.nErrCode can be used to determine the exact error if needed if the future.
  19.  If Result < 0 Then IsFile = False Else IsFile = True
  20. End Function
  21.  
  22.